' Written by Craig'n'Dave
Module Module1
    Sub main()
        ' Dictionary using primitive hash map
        Dim dictionary = New Dictionary(Of String, String) From {
            {"England", "London"},
            {"France", "Paris"},
            {"Germany", "Berlin"}}
        Dim key As String
        Console.Write("Enter the key: ")
        key = Console.ReadLine
        If dictionary.ContainsKey(key) Then
            Console.WriteLine(dictionary(key))
        Else
            Console.WriteLine("Not found")
        End If
    End Sub
End Module